InfoMagic Internet Tools 1993 July/Internet Tools.iso/RockRidge/mail/pp/pp-6.0/Chans/x40084/P1_print.py

Text File | 1991-12-18 | 11.1 KB | 600 lines

-- P1: P1 MHS definitions


-- @(#) $Header: /xtel/pp/pp-beta/Chans/x40084/RCS/P1_print.py,v 6.0 1991/12/18 20:13:50 jpo Rel $
--
-- $Log: P1_print.py,v $
-- Revision 6.0  1991/12/18  20:13:50  jpo
-- Release 6.0
--
--
--


P1 DEFINITIONS ::=

%{
#ifndef lint
static char Rcsid [] = "@(#)$Header";
#endif  lint

%}


BEGIN

PRINTER print


-- P1 makes use of types defined in the following module:
-- Sa: Recommendation S.a [14]
-- T73: T.73, Section 5


MPDU ::=
        CHOICE {
            [0] IMPLICIT UserMPDU,

                ServiceMPDU
        }

ServiceMPDU ::=
        CHOICE {
            [1]
                IMPLICIT DeliveryReportMPDU,

            [2]
                IMPLICIT ProbeMPDU
        }


UserMPDU ::=
        SEQUENCE {
            envelope
                UMPDUEnvelope,
            content
                UMPDUContent
        }

UMPDUEnvelope ::=
        SET {
            mpduID
                MPDUIdentifier,

            originator
                ORName,

            original
                EncodedInformationTypes OPTIONAL,

            ContentType,

            UAContentId OPTIONAL,

            Priority DEFAULT normal,

            PerMessageFlag DEFAULT {},

            deferredDelivery [0] IMPLICIT Time OPTIONAL,

            [1]
                IMPLICIT SEQUENCE OF PerDomainBilateralInfo OPTIONAL,

            [2]
                IMPLICIT SEQUENCE OF RecipientInfo,

            TraceInformation
        }


UMPDUContent ::=
        OCTETSTRING
-- time


Time ::=
        UniversalTime


-- various envelope information

MPDUIdentifier ::=
        [APPLICATION 4] IMPLICIT SEQUENCE {
            GlobalDomainIdentifier,
            IA5String
        }


ContentType ::=
        [APPLICATION 6]
            IMPLICIT INTEGER {
                p2(2)
            }


UAContentId ::=
        [APPLICATION 10]
            IMPLICIT PrintableString

Priority ::=
        [APPLICATION 7]
            IMPLICIT INTEGER {
                normal(0),

                nonUrgent(1),

                urgent(2)
            }

PerMessageFlag ::=
        [APPLICATION 8]
            IMPLICIT BITSTRING {
                discloseRecipients(0),
                conversionProhibited(1),
                alternateRecipientAllowed(2),
                contentReturnRequest(3)
            }

-- per-domain bilateral information

PerDomainBilateralInfo ::=
        SEQUENCE {
            country
                CountryName,

                AdministrationDomainName,

                BilateralInfo
        }

BilateralInfo ::=
        ANY

-- recipient information

RecipientInfo ::=
        SET {
            recipient ORName,

            [0]
                IMPLICIT ExtensionIdentifier,

            [1]
                IMPLICIT PerRecipientFlag,

            [2]
                IMPLICIT ExplicitConversion DEFAULT {}
        }

ExtensionIdentifier ::=
        INTEGER

PerRecipientFlag ::=
        BITSTRING -- See Figure 23/X.411

ExplicitConversion ::=
        INTEGER {
            iA5TextTeletex(0),

            teletexTelex(1)
        }

-- trace information

TraceInformation ::=
        [APPLICATION 9]
            IMPLICIT SEQUENCE OF
                SEQUENCE {
                domainid
                    GlobalDomainIdentifier,

                domaininfo
                    DomainSuppliedInfo
            }

DomainSuppliedInfo ::=
        SET {
            arrival [0]
                IMPLICIT Time,

            deferred [1]
                IMPLICIT Time OPTIONAL,

            action [2]
                IMPLICIT INTEGER {
                    relayed(0),
                    rerouted(1)
                },

            converted
                EncodedInformationTypes OPTIONAL,

            previous
                GlobalDomainIdentifier OPTIONAL
        }


-- global domain identifier

GlobalDomainIdentifier ::=
        [APPLICATION 3]
            IMPLICIT SEQUENCE {
                CountryName,

                AdministrationDomainName,

                PrivateDomainIdentifier OPTIONAL
            }

CountryName ::=
        [APPLICATION 1]
            CHOICE {
                NumericString,
                PrintableString
            }

AdministrationDomainName ::=
        [APPLICATION 2]
            CHOICE {
                NumericString,
                PrintableString
            }

PrivateDomainIdentifier ::=
        CHOICE {
            NumericString,
            PrintableString
        }



-- O/R name

ORName ::=
        [APPLICATION 0]
            IMPLICIT SEQUENCE {
                standard
                    StandardAttributeList,

                domaindefined
                    DomainDefinedAttributeList
                    OPTIONAL
            }



StandardAttributeList ::=
        SEQUENCE {
                country CountryName OPTIONAL,

                admd AdministrationDomainName OPTIONAL,

            x121 [0]
                IMPLICIT X121Address
                        OPTIONAL,

            terminalId [1]
                IMPLICIT TerminalID
                OPTIONAL,

            prmd [2]
                PrivateDomainName
                OPTIONAL,

            organization [3]
                IMPLICIT OrganizationName
                OPTIONAL,

            uaId [4]
                IMPLICIT UniqueUAIdentifier
                OPTIONAL,

            personalname [5]
                IMPLICIT PersonalName
                OPTIONAL,

            orgunit [6]
                IMPLICIT SEQUENCE OF
                OrganizationalUnit
                OPTIONAL
        }

DomainDefinedAttributeList ::=
        SEQUENCE OF
                DomainDefinedAttribute

DomainDefinedAttribute ::=
        SEQUENCE {
            type
                PrintableString,

            value
                PrintableString
        }


X121Address ::=
        NumericString

TerminalID ::=
        PrintableString

OrganizationName ::=
        PrintableString

UniqueUAIdentifier ::=
        NumericString

PersonalName ::=
        SET {
            surName [0]
                IMPLICIT PrintableString,

            givenName [1]
                IMPLICIT PrintableString OPTIONAL,

            initials [2]
                IMPLICIT PrintableString
                OPTIONAL,

            generalQualifier [3]
                IMPLICIT PrintableString OPTIONAL
    }

OrganizationalUnit ::=
        PrintableString

PrivateDomainName ::=
        CHOICE {
            NumericString,
            PrintableString
        }


-- encoded information types

EncodedInformationTypes ::=
        [APPLICATION 5] IMPLICIT SET {
            [0]
                IMPLICIT BITSTRING
                {
                    undefined(0),
                    tLX(1),
                    iA5Text(2),
                    g3Fax(3),
                    tIF0(4),
                    tTX(5),
                    videotex(6),
                    voice(7),
                    sFD(8),
                    tIF1(9)
                },

            [1]
                IMPLICIT G3NonBasicParams
                OPTIONAL,

            [2]
                IMPLICIT TeletexNonBasicParams
                OPTIONAL,

            [3]
                IMPLICIT PresentationCapabilities
                OPTIONAL

        -- other non-basic parameters are for further study
        }



G3NonBasicParams ::=
        BITSTRING {
            twoDimensional(8),
            fineResolution(9),
            unlimitedLength(20),
            b4Length(21),
            a3Width(22),
            b4Width(23),
            uncompressed(30)
        }


TeletexNonBasicParams ::=
        SET {
            graphicCharacterSets [0]
                IMPLICIT T61String OPTIONAL,

            controlCharacterSets [1]
                IMPLICIT T61String OPTIONAL,

            pageFormats [2]
                IMPLICIT OCTETSTRING OPTIONAL,

            miscTerminalCapabilities [3]
                IMPLICIT T61String OPTIONAL,

            privateUse [4]
                IMPLICIT OCTETSTRING OPTIONAL
        }

PresentationCapabilities ::=
        T73PresentationCapabilities


T73PresentationCapabilities ::=
        SET { --unimportant-- }


-- Delivery Report MPDU

DeliveryReportMPDU ::=
        SEQUENCE {
            envelope
                DeliveryReportEnvelope,

            content
                DeliveryReportContent
        }

DeliveryReportEnvelope ::=
        SET {
            report
                MPDUIdentifier,

            originator
                ORName,

                TraceInformation
        }

DeliveryReportContent ::=
        SET {
            original
                MPDUIdentifier,

            intermediate
                TraceInformation
                OPTIONAL,

                UAContentId
                OPTIONAL,

            [0]
                IMPLICIT SEQUENCE OF ReportedRecipientInfo,

            returned [1]
                IMPLICIT UMPDUContent OPTIONAL,

            billingInformation [2]
                ANY OPTIONAL
        }

ReportedRecipientInfo ::=
        SET
        {
            recipient [0]
                IMPLICIT ORName,

            [1]
                IMPLICIT ExtensionIdentifier,

            [2]
                IMPLICIT PerRecipientFlag,

            [3]
                IMPLICIT LastTraceInformation,

            intendedRecipient [4]
                IMPLICIT ORName
                OPTIONAL,

            [5]
                IMPLICIT SupplementaryInformation OPTIONAL
        }


-- last trace information

LastTraceInformation ::=
        SET {
            arrival [0]
                IMPLICIT Time,

            converted
                EncodedInformationTypes
                OPTIONAL,

            [1]
                Report
        }

Report ::=
        CHOICE {
            [0]
                IMPLICIT DeliveredInfo,

            [1]
                IMPLICIT NonDeliveredInfo
        }

DeliveredInfo ::=
        SET {
            delivery [0]
                IMPLICIT Time,

            typeOfUA [1]
                IMPLICIT INTEGER {
                    public(0),

                    private(1)
                } DEFAULT public
        }


NonDeliveredInfo::=
        SET {
            [0]
                IMPLICIT ReasonCode,

            [1]
                IMPLICIT DiagnosticCode OPTIONAL
        }


ReasonCode ::=
        INTEGER


DiagnosticCode  ::=
        INTEGER


-- supplementary information

SupplementaryInformation ::=
        PrintableString -- length limited and for further study


-- Probe MPDU

ProbeMPDU ::=
        ProbeEnvelope

ProbeEnvelope ::=
        SET {
            probe
                MPDUIdentifier,

            originator
                ORName,

                ContentType,

                UAContentId OPTIONAL,

            original
                EncodedInformationTypes
                OPTIONAL,

                TraceInformation,

                PerMessageFlag DEFAULT {},

            contentLength [0]
                IMPLICIT INTEGER
                OPTIONAL,

            [1]
                IMPLICIT SEQUENCE OF PerDomainBilateralInfo
                OPTIONAL,

            [2]
                -- should be just IMPLICIT SEQUENCE OF RecipientInfo
                IMPLICIT SEQUENCE OF CHOICE {
                    [UNIVERSAL 17]
                        IMPLICIT RecipientInfo
                }
}

END